home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-websites-
/
wirenet
/
files
/
wirenet151.lzx
/
Updates
/
SendEvents
< prev
next >
Wrap
Text File
|
1999-05-10
|
2KB
|
61 lines
/* $VER: SendEvents 1.51 (30.10.96) (c) Neil Bothwick */
/* */
/* Check if there are any outstanding events and if */
/* so send them */
/* Change these to suit your setup */
SystemName = 'Wirenet' /* The name of your Internet system in Thor */
MaxTries = 5 /* Maximum number of retries */
Logging = 0 /* Turn on logging, only use with Thor 2.3 and above */
LogFile = 'UUSpool:Connect.log'
/* Don't change anything below here */
EVE_DOWNLOAD = 4
EVE_UPLOAD = 5
address command
if ~show('p', 'BBSREAD') then do
"run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
"WaitForPort BBSREAD"
end
if ~show('L','rexxdossupport.library') then
call addlib('rexxdossupport.library',0,-30)
CmdStr = GetVar('Thor/ThorPath')||'bin/SendTCP BBSNAME' SystemName 'MAILSERVER $SMTPSERVER NEWSSERVER $NEWSSERVER PUBSCREEN Workbench'
if Logging = 1 then CmdStr = CmdStr 'LOGFILE' LogFile
do Try = 1 to MaxTries
if ActiveEvents() = 0 then leave
CmdStr
end
If ActiveEvents() > 0 then ExitMsg('SendTCP failed')
exit
ActiveEvents:
address BBSREAD
ActiveCount = 0
GETBBSDATA SystemName SystemData
do EventNo=SystemData.FIRSTEVENT to SystemData.LASTEVENT
drop EventData.
drop EventTags.
READBREVENT '"'SystemName'"' eventnr EventNo datastem EventData tagsstem EventTags
EventFlags = c2x(EventData.FLAGS)
if EventFlags = 0 | EventFlags = 8 then return 1
end
address command
return 0
ExitMsg:
parse arg ErrMsg
say(ErrMsg)
exit
return